home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d19
/
pcbem11u.arc
/
PCB1.BAT
< prev
next >
Wrap
DOS Batch File
|
1991-09-22
|
2KB
|
95 lines
@echo off
Echo 'We are Now running our midnight event
pcbem log d:\pcb event(1 1)
d:
cd\pcb
procalls procalls.cfg
callsec callsech.cfg /G /S
cd\pcb\today
todaybbs
cd\pcb\change
call close
cd\pcb\secmsg
call smake
cd\pcb\gen
fixscrpt script0
fixscrpt script0g
cd\pcb
copy news.1 news
copy news.1 pnews
c:
cd\pcb-util
if exist d:\pcb\new\answer1 goto sq2
goto msg
:SQ2
sq2msg sq2msg.cfg
del d:\pcb\new\opinion
del d:\pcb\new\apply
del d:\pcb\gen\adult*.*
goto msg
:MSG
d:
cd\pcb
cls
copy users.tbl pcbsm.tbl
pcbsm /adjust;fileratio
copy sysop.tbl pcbsm.tbl
pcbsm /adjust;fileratio
del pcbsm.tbl
pcbfiler /LIST
pkzip -m e:\free\megafile.zip d:\pcb\pcbfiles.lst
pcbfiler /LIST:14
pkzip -m g:\sdl01\syfiles.zip d:\pcb\pcbfiles.lst
c:
cd\pcb-util
cls
CALLS CALLS.CNF
cls
ECHO 'LETS GET THE MESSAGE POSTERS
WRITrNFO writrnfo.cfg /g
echo ' TSBLUES MAINTENANCE
cls
d:
cd\doors\stock
tsmaint
ECHO 'Bingo Maintenance'
d:
cd\doors\bingo
nightpik bingo.cfg
e:
:CHECKUP
if exist e:\mainupld\*.ZIP goto zip
if exist g:\mainupld\*.zip goto zip
goto anscheck
:ZIP
EXZIP /ALL
goto anscheck
:ANSCHECK
ECHO ' Check for Answer Files'
e:
cls
cd\rwdir
call heads
d:
cd\pcb
if exist d:\pcb\new\answer1 goto PKAN
goto CALLSTAT
:PKAN
callren d:\pcb\new\answer1
if exist d:\pcb\snew\answer2 goto PKAN2
goto CALLSTAT
:PKAN2
callren d:\pcb\snew\answer2
goto CALLSTAT
:CALLSTAT
Echo 'One Or More Answer Files ByPassed
cd\pcb
usage
goto end
:END
CD C:\
cd\pcb
bltmnu bltcnf.cfg
pcbem log d:\pcb end
BOARD